home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / pc_board / smrtnppe.zip / SMARTNET.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-05-14  |  4KB  |  277 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     String   STRING001
  28.     String   STRING002
  29.     String   STRING003
  30.     String   STRING004
  31.     String   STRING005
  32.     String   STRING006
  33.     String   STRING007
  34.     String   STRING008
  35.     String   STRING009
  36.  
  37. ;------------------------------------------------------------------------------
  38.  
  39.     STRING003 = PPEPath() + "node.lst"
  40.     STRING006 = PPEPath() + "HLPSMRTN"
  41.     STRING007 = PPEPath() + "SMRTMENU"
  42.     GetUser
  43.     PrintLn 
  44.     PrintLn "@X1E┌──────────────────────────────────────────────────────────────────────┐@X07"
  45.     PrintLn "@X1E│                      SMARTNET NODE DISPLAY                           │@X07"
  46.     PrintLn "@X1E│                                                                      │@X07"
  47.     PrintLn "@X1E│ @X1FUse this Command to search the current Smartnet node list & download @X1E│@X07"
  48.     PrintLn "@X1E│              @X1Fthe latest Smartnet Node List package@X1E                   │@X07"
  49.     PrintLn "@X1E└──────────────────────────────────────────────────────────────────────┘@X07"
  50.     PrintLn 
  51.     Wait
  52.     Cls
  53.     :LABEL001
  54.     DispFile STRING007, ""
  55.     Newline
  56.     STRING002 = ""
  57.     INTEGER008 = 0
  58.     InputText "@X0E(@X0C@TIMELEFT@@X0E min. left@X0E) SMARTNET Node List Command", STRING002, "@X0E", 1
  59.     Newline
  60.     STRING002 = Upper(STRING002)
  61.     If (STRING002 == "L") Gosub LABEL002
  62.     If (STRING002 == "A") Gosub LABEL004
  63.     If (STRING002 == "S") Gosub LABEL006
  64.     If (STRING002 == "T") Gosub LABEL008
  65.     If (STRING002 == "D") Goto LABEL010
  66.     If (STRING002 == "H") Gosub LABEL011
  67.     If (STRING002 == "Q") Stop
  68.     If (STRING002 == "G") Goodbye
  69.     Goto LABEL001
  70.     :LABEL002
  71.     Cls
  72.     FOpen 1, STRING003, 0, 0
  73.     Log "User displayed Smartnet Node List in Smartnet.PPE", 0
  74.     Gosub LABEL012
  75.     INTEGER006 = 2
  76.     INTEGER001 = 1
  77.     INTEGER005 = 2
  78.     INTEGER003 = U_PageLen
  79.     :LABEL003
  80.     Gosub LABEL015
  81.     If (INTEGER008) Goto LABEL013
  82.     Gosub LABEL014
  83.     Goto LABEL003
  84.     :LABEL004
  85.     STRING001 = ""
  86.     InputText "@X0EEnter Area Code to Find", STRING001, 14, 3
  87.     If (STRING001 == "") Return
  88.     FOpen 1, STRING003, 0, 0
  89.     Log "User searched " + STRING001 + " in Smartnet.PPE", 0
  90.     Cls
  91.     Gosub LABEL012
  92.     INTEGER006 = 2
  93.     INTEGER001 = 1
  94.     INTEGER005 = 2
  95.     INTEGER003 = U_PageLen
  96.     :LABEL005
  97.     Gosub LABEL015
  98.     If (INTEGER008) Goto LABEL013
  99.     If (Mid(STRING002, 3, 3) == STRING001) Then
  100.         Gosub LABEL014
  101.         Gosub LABEL015
  102.         If (INTEGER008) Goto LABEL013
  103.         Gosub LABEL014
  104.         Gosub LABEL015
  105.         If (INTEGER008) Goto LABEL013
  106.         Gosub LABEL014
  107.     Endif
  108.     Goto LABEL005
  109.     :LABEL006
  110.     STRING001 = ""
  111.     InputText "@X0EEnter State to Find", STRING001, 14, 2
  112.     If (STRING001 == "") Return
  113.     STRING001 = Upper(STRING001)
  114.     FOpen 1, STRING003, 0, 0
  115.     Log "User searched " + STRING001 + " in Smartnet.PPE", 0
  116.     Cls
  117.     Gosub LABEL012
  118.     INTEGER006 = 2
  119.     INTEGER001 = 1
  120.     INTEGER005 = 2
  121.     INTEGER003 = U_PageLen
  122.     :LABEL007
  123.     Gosub LABEL015
  124.     If (INTEGER008) Goto LABEL013
  125.     STRING004 = STRING002
  126.     Gosub LABEL015
  127.     If (INTEGER008) Goto LABEL013
  128.     INTEGER004 = InStr(STRING002, ",") + 2
  129.     STRING005 = STRING002
  130.     Gosub LABEL015
  131.     If (INTEGER008) Goto LABEL013
  132.     STRING008 = STRING002
  133.     If (Mid(STRING005, INTEGER004, 2) == STRING001) Then
  134.         STRING002 = STRING004
  135.         Gosub LABEL014
  136.         If (INTEGER002 || Abort()) Goto LABEL013
  137.         STRING002 = STRING005
  138.         Gosub LABEL014
  139.         If (INTEGER002 || Abort()) Goto LABEL013
  140.         STRING002 = STRING008
  141.         Gosub LABEL014
  142.         If (INTEGER002 || Abort()) Goto LABEL013
  143.     Endif
  144.     Goto LABEL007
  145.     :LABEL008
  146.     STRING001 = ""
  147.     InputText "@X0EEnter Text to Find", STRING001, 14, 20
  148.     If (STRING001 == "") Return
  149.     STRING001 = Upper(STRING001)
  150.     FOpen 1, STRING003, 0, 0
  151.     Log "User searched the Smartnet.PPE file for " + STRING001, 0
  152.     Cls
  153.     Gosub LABEL012
  154.     INTEGER006 = 2
  155.     INTEGER001 = 1
  156.     INTEGER005 = 2
  157.     INTEGER003 = U_PageLen
  158.     :LABEL009
  159.     Gosub LABEL015
  160.     If (INTEGER008) Goto LABEL013
  161.     STRING004 = STRING002
  162.     Gosub LABEL015
  163.     If (INTEGER008) Goto LABEL013
  164.     STRING005 = STRING002
  165.     Gosub LABEL015
  166.     If (INTEGER008) Goto LABEL013
  167.     STRING008 = STRING002
  168.     If (InStr(Upper(STRING004), Upper(STRING001)) || InStr(Upper(STRING005), Upper(STRING001))) Then
  169.         STRING002 = STRING004
  170.         Gosub LABEL014
  171.         If (INTEGER002 || Abort()) Goto LABEL013
  172.         STRING002 = STRING005
  173.         Gosub LABEL014
  174.         If (INTEGER002 || Abort()) Goto LABEL013
  175.         STRING002 = STRING008
  176.         Gosub LABEL014
  177.         If (INTEGER002 || Abort()) Goto LABEL013
  178.     Endif
  179.     Goto LABEL009
  180.     :LABEL010
  181.     KbdStuff "DB" + Chr(13) + "SMRT0493.ZIP" + Chr(13)
  182.     Log "User flagged latest Smartnet List to download from Smartnet.PPE", 0
  183.     End
  184.     :LABEL011
  185.     DispFile STRING006, ""
  186.     Log "User accessed Help file from Smartnet.PPE", 0
  187.     Return
  188.     :LABEL012
  189.     For INTEGER007 = 1 To 11
  190.         FGet 1, STRING009
  191.     Next
  192.     PrintLn "@X0E       Phone       @X0B BBS/ City & State/Province    @X0A     Sysop/ Node ID"
  193.     PrintLn "@X0C══════════════════════════════════════════════════════════════════════════════"
  194.     Return
  195.     :LABEL013
  196.     FClose 1
  197.     PrintLn "@X0CEnd of list..."
  198.     Wait
  199.     STRING002 = ""
  200.     Return
  201.     :LABEL014
  202.     PrintLn "@X0B", STRING002
  203.     INTEGER001 = INTEGER001 + 1
  204.     INTEGER006 = INTEGER006 + 1
  205.     Return
  206.     :LABEL015
  207.     FGet 1, STRING002
  208.     INTEGER002 = Ferr(1)
  209.     If (INTEGER002 || Abort()) INTEGER008 = 1
  210.     STRING009 = STRING002
  211.     If (Trim(STRING009, " ") == "") INTEGER008 = 1
  212.     Return
  213.  
  214. ;------------------------------------------------------------------------------
  215. ;
  216. ; Usage report (before postprocessing)
  217. ;
  218. ; ■ Statements used :
  219. ;
  220. ;    1       End
  221. ;    5       Cls
  222. ;    2       Wait
  223. ;    27      Goto 
  224. ;    49      Let 
  225. ;    12      PrintLn 
  226. ;    33      If 
  227. ;    2       DispFile 
  228. ;    4       FOpen 
  229. ;    1       FClose 
  230. ;    2       FGet 
  231. ;    1       GetUser
  232. ;    6       Log 
  233. ;    29      Gosub 
  234. ;    8       Return
  235. ;    2       Newline
  236. ;    1       Stop
  237. ;    4       InputText 
  238. ;    1       KbdStuff 
  239. ;    1       Goodbye
  240. ;
  241. ;
  242. ; ■ Functions used :
  243. ;
  244. ;    15      +
  245. ;    14      ==
  246. ;    1       <
  247. ;    1       <=
  248. ;    2       >=
  249. ;    4       !
  250. ;    2       &&
  251. ;    9       ||
  252. ;    7       Upper()
  253. ;    2       Mid()
  254. ;    1       Ferr()
  255. ;    2       Chr()
  256. ;    3       InStr()
  257. ;    7       Abort()
  258. ;    1       Trim()
  259. ;    3       PPEPath()
  260. ;
  261. ;------------------------------------------------------------------------------
  262. ;
  263. ; Analysis flags : No flag
  264. ;
  265. ;------------------------------------------------------------------------------
  266. ;
  267. ; Postprocessing report
  268. ;
  269. ;    1       For/Next
  270. ;    0       While/EndWhile
  271. ;    3       If/Then or If/Then/Else
  272. ;    0       Select Case
  273. ;
  274. ;------------------------------------------------------------------------------
  275. ;                 AEGiS Corp - Break the routines, code against the machines!
  276. ;------------------------------------------------------------------------------
  277.